home *** CD-ROM | disk | FTP | other *** search
Text File | 1996-09-24 | 987 b | 33 lines | [TEXT/MPS ] |
- (deletemenu Build || set status 0) ≥Dev:Null
- (deleteMenu Source || set status 0) ≥Dev:Null
-
- addmenu Build "Build StdFileSaver/B" "echo ∂"∂" >{Worksheet}; (buildprogram StdFileSaver) ∑∑{Worksheet};beep"
- addmenu Build (- ""
- addmenu Build "Delete Objects" "delete :Object:≈"
-
- addMenu Source '(:Source:≈.c' ""
- for fn in `files -t TEXT :Source:≈.c`
- addmenu Source " {fn}" "Open ∂":Source:{fn}∂""
- end
- addmenu Source (- ""
- addMenu Source '(:Source:≈.h' ""
- for fn in `files -t TEXT :Source:≈.h`
- addmenu Source " {fn}" "Open ∂":Source:{fn}∂""
- end
- addmenu Source (- ""
- addMenu Source '(:Source:≈.a' ""
- for fn in `files -t TEXT :Source:≈.a`
- addmenu Source " {fn}" "Open ∂":Source:{fn}∂""
- end
- addmenu Source (- ""
- addMenu Source '(:Source:≈.r' ""
- for fn in `files -t TEXT :Source:≈.r`
- addmenu Source " {fn}" "Open ∂":Source:{fn}∂""
- end
- addmenu Source (- ""
- addMenu Source (: ""
- for fn in `files -t TEXT`
- addmenu Source " {fn}" "Open ∂"{fn}∂""
- end
-
- echo "search '/////' :Source:≈.c" >{Worksheet}